MacFormat 1997 February/macformat-047.iso/Demos/Chiller Killers/Chiller/Chiller.DXR/00029.ls

Text File | 1996-11-28 | 814 b | 49 lines

on exitFrame
  global rate, catch, syn, drums, ok
  set catch to the timer / 60.0
  set rate to 25 / catch
  if syn > 3 then
    puppetSound(2, 93)
  end if
  if syn > 4 then
    puppetSound(2, 0)
    puppetSound(2, 168)
    set drums to 0
    set ok to random(10)
    if ok = 1 then
      do("sel2")
    end if
    if ok = 2 then
      do("sel3")
    end if
    if ok = 3 then
      do("sel6")
    end if
    if ok = 4 then
      do("sel7")
    end if
    if ok = 5 then
      do("sel9")
    end if
    if ok = 6 then
      do("sel11")
    end if
    if ok = 7 then
      do("sel15")
    end if
    if ok = 8 then
      do("sel16")
    end if
    if ok = 9 then
      do("sel20")
    end if
    if ok = 10 then
      do("sel21")
    end if
    cursor(-1)
    play frame "intro"
  else
    go("sync")
  end if
end